10 REM > NOTLANDUNG <
15 FOR X=53248 TO 53263:POKE X,0:NEXT X
20 GOSUB 2000
25 GOSUB 3000
30 V=53248:S=54272
40 FOR I8=12736 TO 12798:READ Q8:POKE I8,Q8:NEXT
45 POKE 2047,199
50 POKE V+21,128
60 POKE V+27,128
65 POKE V+46,8
70 POKE V+14,72
75 POKE V+15,98
77 FOR BR=1 TO 350:NEXT BR
78 POKE 53265,PEEK(53265)OR 16
90 FOR I=12288 TO 12350:READ Q:POKE I,Q:NEXT
95 FOR I6=12608 TO 12670:READ Q6:POKE I6,Q6:NEXT I6
100 FOR I7=12672 TO 12734:READ Q7:POKE I7,Q7:NEXT I7
110 POKE 2040,192
120 POKE V+21,129
130 POKE V+29,1
140 POKE V+39,8
150 POKE V+28,1
160 POKE V+37,1
170 POKE V+38,3
180 POKE V,150
181 FOR L=S TO S+24:POKE L,0:NEXT L
182 FOR K=7 TO 24:READ X:POKE S+K,X:NEXT K
183 POKE S+11,65:POKE S+18,65
184 POKE S+5,9:POKE S+6,2
190 FOR I=35 TO 157
191 POKE S+5,0
193 POKE S+1,6
194 POKE S,177
196 POKE S+4,65
198 POKE S+4,32
200 POKE V+1,I
210 POKE 12294,5:POKE 12295,81:POKE 12296,84
220 FOR BR=1 TO 5:NEXT BR
230 POKE 12294,21:POKE 12295,85:POKE 12296,85
240 NEXT I
260 POKE V,150:POKE V+1,157
265 POKE S+1,4:POKE S,177
270 FOR I=1 TO 5
275 POKE S+5,O:POKE S+4,65:POKE S+4,32
280 POKE 12294,5:POKE 12295,81:POKE 12296,84
290 FOR BR=1 TO 65:NEXT BR
300 POKE 12294,21:POKE 12295,85:POKE 12296,85
310 NEXT I
315 POKE S+24,22
325 POKE S,220:POKE S+5,0:POKE S+6,180
330 FOR I1=12352 TO 12414:READ Q1:POKE I1,Q1:NEXT
340 FOR I2=12416 TO 12478:READ Q2:POKE I2,Q2:NEXT
350 POKE V+21,131
360 POKE V+40,0
370 POKE V+3,157
380 P=193
390 FOR I=165 TO 219 STEP 3
400 POKE V+2,I
410 POKE 2041,P:POKE S+1,R:POKE S+4,65:POKE S+4,64
420 P=P+1:IF P>194 THEN P=193
430 IF I=219 THEN 450
440 FOR BR=1 TO 50:NEXT BR
450 NEXT I
460 :
470 FOR I1=12352 TO 12414:READ Q1:POKE I1,Q1:NEXT
480 POKE 2041,193
490 POKE V+21,131
500 POKE V+40,0
510 POKE V+3,157
520 POKE V+2,219
530 FOR BR=1 TO 150:NEXT BR
540 :
550 FOR I3=12480 TO 12542:READ Q3:POKE I3,Q3:NEXT
560 POKE 2043,195
570 POKE V+21,139
580 POKE V+42,7
590 POKE V+7,168
600 POKE V+6,238
610 :
620 POKE 2045,197
630 POKE V+21,171
640 POKE V+44,7
650 POKE V+11,180
660 POKE V+10,249
670 P=197
675 POKE S+6,200:POKE S+5,0
680 FOR I=1 TO 80
685 POKE S,9:POKE S+1,I:POKE S+4,129
690 POKE 2045,P
700 P=P+1:IF P>198 THEN P=197
710 FOR BR=1 TO 10:NEXT BR
720 NEXT I:POKE S+4,0
730 FOR Y=12480 TO 12542:POKE Y,0:NEXTY
740 POKE V+21,PEEK(V+21)AND 255-40
755 POKE S,220:POKE S+5,0:POKE S+6,180
760 FOR I1=12352 TO 12414:READ Q1:POKE I1,Q1:NEXT
770 FOR I2=12416 TO 12478:READ Q2:POKE I2,Q2:NEXT
780 POKE V+21,131
790 POKE V+40,0
800 POKE V+3,157
810 P=193
820 FOR I=219 TO 165 STEP-3
830 POKE V+2,I
840 POKE 2041,P:POKE S+1,R:POKE S+4,65:POKE S+4,64
850 P=P+1:IF P>194 THEN P=193
860 FOR BR=1 TO 50:NEXT BR
870 NEXT I
890 POKE 2040,192
900 POKE V+21,129
910 FOR BR=1 TO 800:NEXT BR
930 POKE V,150:POKE V+1,157
935 POKE S+1,4:POKE S,177:POKE S+24,31:POKE S+6,2
940 FOR I=1 TO 15
945 POKE S+5,0:POKE S+4,65:POKE S+4,32
950 POKE 12294,5:POKE 12295,81:POKE 12296,84
960 FOR BR=1 TO 50:NEXT BR
970 POKE 12294,21:POKE 12295,85:POKE 12296,85
980 NEXT I
995 POKE S+1,6:POKE S,177
1000 FOR I=157 TO 52 STEP-1
1005 POKE S+5,0:POKE S+4,65:POKE S+4,32
1010 POKE V,307-I
1020 POKE V+1,I
1030 POKE 12294,5:POKE 12295,81:POKE 12296,84
1040 POKE 12294,21:POKE 12295,85:POKE 12296,85
1050 NEXT I
1065 POKE S+1,6:POKE S,177
1070 FOR Y=50 TO 80
1072 IF Y<65 THEN 1075
1073 POKE S+24,96-Y
1075 POKE S+5,0:POKE S+4,65:POKE S+4,32
1080 POKE V+16,1
1090 POKE V+0,Y-50
1100 POKE V+1,101-Y
1110 POKE 12294,21:POKE 12295,81:POKE 12296,84
1120 POKE 12294,21:POKE 12295,85:POKE 12296,85
1130 NEXT Y
1135 POKE V+16,0:POKE V+0,0
1141 FOR I=12288 TO 12350:READ Q:POKE I,Q:NEXT I
1142 FOR I1=12352 TO 12414:READ Q1:POKE I1,Q1:NEXT I1
1143 FOR I2=12416 TO 12478:READ Q2:POKE I2,Q2:NEXT I2
1146 FOR I=S TO S+24:POKE I,0:NEXT
1147 POKE S+24,10:POKE S+5,10:POKE S+6,100:POKE S+3,100:POKE S+2,100
1150 FOR I=72 TO 39 STEP -1
1152 READ HF,LF,DR
1154 POKE S+1,HF:POKE S,LF
1155 POKE S+4,65
1160 POKE V+14,I:POKE V+15,170-I
1170 FOR BR=1 TO DR:NEXT BR
1172 POKE S+4,33
1180 NEXT I
1200 FOR X=53248 TO 53263:POKE X,0:NEXT X
1208 FOR I3=12480 TO 12542:READ Q3:POKE I3,Q3:NEXT I3
1210 FOR I4=12544 TO 12606:READ Q4:POKE I4,Q4:NEXT I4
1220 FOR I5=12608 TO 12670:READ Q5:POKE I5,Q5:NEXT I5
1230 FOR I6=12672 TO 12734:READ Q6:POKE I6,Q6:NEXT I6
1235 POKE V+28,0:POKES+24,0
1240 POKE V+39,1
1250 POKE V+0,150
1260 POKE V+1,110
1270 POKE V+29,1
1290 FOR J=0 TO 6
1300 POKE V+21,1
1310 POKE 2040,192+J
1320 FOR BR=1 TO 30:NEXT BR
1330 NEXT J
1340 FOR BR=1 TO1000:NEXT BR
1350 FOR K=6 TO 0 STEP -1
1360 POKE 2040,192+K
1370 FOR BR=1 TO 30:NEXT BR
1380 NEXT K
1390 POKE V+21,0
1400 FOR BR=1 TO 400:NEXT BR
1500 END
2000 PRINT"[147]"
2010 POKE 53280,2:POKE 53281,6
2012 FOR BR=1 TO 800:NEXT BR
2015 S=54272
2017 FOR I=S TO S+24:POKE I,0:NEXT I
2018 POKE S+24,10:POKE S+5,12*16+0:POKE S+6,15*16+10
2020 FOR A=0 TO 39
2025 POKE S+1,A+15:POKE S,226:POKE S+4,33
2030 POKE 1024+A+40*16,64
2040 POKE 55296+A+40*16,7
2050 NEXT A
2060 FOR I=0 TO 65
2065 POKE S+1,65-I:POKE S,226:POKE S+4,129
2067 IF I>24 THEN 2090
2070 POKE 1024+10+40*I,66
2080 POKE 55296+10+40*I,1
2090 NEXT I
2095 POKE S+4,0
2100 FOR BR=1 TO 500:NEXT BR
2110 PRINT"[159]'NOTLANDUNG'"
2120 FOR BR=1 TO 700:NEXT BR
2130 PRINT"[155]   FUER COMMODORE 64"
2132 FOR BR=1 TO 500:NEXT BR
2140 FOR BR=1 TO 2000:NEXT BR
2150 RETURN
3000 PRINT"[147]"
3010 POKE 53280,2:POKE 53281,14
3020 PRINT"[149][198][223]"
3030 PRINT" [144][223][149] [223]"
3040 PRINT"[144]    [149]  [223]"
3050 PRINT"[144]     [149]  [223]"
3060 PRINT"[144]  [149]  [144]  [223][149] [223]"
3070 PRINT" [144]    [149]    [223]"
3080 PRINT"  [144]      [149]    [223]";
3090 PRINT"[146][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
3100 PRINT"[163][163][160][163][163][163][163][163][163][160][163][163]";
3110 PRINT"[152][169]            [223][146]";
3120 PRINT"  [163][163][163][163][163][163][163] [163][163][163]"
3130 PRINT"  [163][163][163][163] [163][163][163] [152][169]              [223][146]   [163][163][163][163][163]"
3140 PRINT"[163][163][163][163]   [163]   [155][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][163][163]   [163][163][163][163][163]"
3150 PRINT"[163][163][163][163][163][163][163]   [163][163][163][160][163][163][163][163][163][160][163][163][163][163][163][163][163][163]   [163][163][163][163]  [163][163][163]";
3160 PRINT:PRINT"   [163][163][163][163][163][163][163]     [163][163][163][163]   [163][163][163][163][163][163][163][163][163]  [163][163][163][163][163]"
3170 PRINT:PRINT"[163][163][163][163][163][163]   [163][163][163][163][163][163][163][163]      [163][163][163][163][163][163][163][163][163][163][163][163][163]"
3200 RETURN
4000 DATA 0,62,0
4001 DATA 0,255,192
4002 DATA 3,255,224
4003 DATA 7,255,240
4004 DATA 15,255,248
4005 DATA 31,255,252
4006 DATA 31,255,252
4007 DATA 63,255,252
4008 DATA 63,255,254
4009 DATA 63,255,254
4010 DATA 63,255,254
4011 DATA 63,255,254
4012 DATA 63,255,254
4013 DATA 31,255,252
4014 DATA 31,255,252
4015 DATA 31,255,252
4016 DATA 15,255,248
4017 DATA 7,255,240
4018 DATA 3,255,224
4019 DATA 1,255,192
4020 DATA 0,62,0
4500 DATA 0,0,0
4501 DATA 0,0,0
4502 DATA 21,85,85
4503 DATA 0,4,0
4504 DATA 0,12,0
4505 DATA 64,63,0
4506 DATA 64,255,0
4507 DATA 255,250,0
4508 DATA 255,242,128
4509 DATA 64,242,192
4510 DATA 64,240,192
4511 DATA 0,63,192
4512 DATA 0,63,0
4513 DATA 0,12,0
4514 DATA 0,4,16
4515 DATA 1,85,64
4516 DATA 0,,,,,,,,,,,,,,
4600 DATA 0,0,0
4601 DATA 0,0,0
4602 DATA 0,0,0
4603 DATA 0,0,0
4604 DATA 2,0,128
4605 DATA 0,68,0
4606 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
4700 DATA 0,0,0
4701 DATA 0,0,0
4702 DATA 0,0,0
4703 DATA 0,0,0
4704 DATA 0,130,0
4705 DATA 0,0,0
4706 DATA 1,17,0
4707 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
4810 DATA 12,2,0,4,0,0,192
4820 DATA 16,2,0,6,0,0,64
4830 DATA 0,5,14,31
5000 DATA 0,0,0
5001 DATA 0,0,0
5002 DATA 0,0,0
5003 DATA 0,0,0
5004 DATA 0,12,0
5005 DATA 0,14,0
5006 DATA 0,8,0
5007 DATA 0,31,192
5008 DATA 0,40,0
5009 DATA 0,72,0
5010 DATA 0,136,0
5011 DATA 0,8,0
5012 DATA 0,24,0
5013 DATA 0,36,0
5014 DATA 0,66,128
5015 DATA 0,33,0
5016 DATA ,,,,,,,,,,,,,,
5500 DATA 0,0,0
5501 DATA 0,0,0
5502 DATA 0,0,0
5503 DATA 0,0,0
5504 DATA 0,12,0
5505 DATA 0,14,0
5506 DATA 0,8,0
5507 DATA0,28,0
5508 DATA 0,42,0
5509 DATA 0,25,0
5510 DATA 0,24,128
5511 DATA 0,8,0
5512 DATA 0,8,0
5513 DATA 0,8,0
5514 DATA 0,8,0
5515 DATA 0,12,0
5516 DATA 0,0,0
5517 DATA 0,0,0
5518 DATA 0,0,0
5519 DATA 0,0,0
5520 DATA 0,0,0
6000 DATA 0,0,0
6001 DATA 0,0,0
6002 DATA 0,0,0
6003 DATA 0,0,0
6004 DATA 0,12,0
6005 DATA 0,14,0
6006 DATA 0,8,0
6007 DATA 0,24,0
6008 DATA 0,44,0
6009 DATA 0,78,0
6010 DATA 0,134,0
6011 DATA 0,7,128
6012 DATA 0,4,0
6013 DATA 0,8,0
6014 DATA 0,8,0
6015 DATA 0,12,0
6016 DATA ,,,,,,,,,,,,,,
7000 DATA 146,0,0
7001 DATA 0,32,0
7002 DATA 0,4,0
7003 DATA 0,1,0
7004 DATA 0,0,0
7005 DATA 0,0,64
7006 DATA 0,0,0
7007 DATA 0,0,0
7008 DATA 0,0,16
7009 DATA 0,0,0
7010 DATA 0,0,0
7011 DATA 0,0,4
7012 DATA 0,0,0
7013 DATA 0,0,0
7014 DATA 0,0,2
7015 DATA ,,,,,,,,,,,,,,,,,
7500 DATA 0,0,0
7501 DATA 0,0,0
7502 DATA 0,0,0
7503 DATA 0,0,0
7504 DATA 0,24,0
7505 DATA 0,56,0
7506 DATA 0,8,0
7507 DATA 0,28,0
7508 DATA 0,26,0
7509 DATA 0,25,0
7510 DATA 0,24,128
7511 DATA 0,24,0
7512 DATA 0,8,0
7513 DATA 0,8,0
7514 DATA 0,8,0
7515 DATA 0,24,0
7516 DATA,,,,,,,,,,,,,,
8000 DATA 0,0,0
8001 DATA 0,0,0
8002 DATA 0,0,0
8003 DATA 0,0,0
8004 DATA 0,24,0
8005 DATA 0,56,0
8006 DATA 0,8,0
8007 DATA1,255,192
8008 DATA 0,8,0
8009 DATA 0,8,0
8010 DATA 0,8,0
8011 DATA 0,8,0
8012 DATA 0,12,0
8013 DATA 0,18,0
8014 DATA 0,161,0
8015 DATA 0,66,0
8016 DATA,,,,,,,,,,,,,,
8100 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,
8101 DATA,42,
8102 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
8200 DATA,,,,,,,,,,,,,,,,,,,,,,,
8201 DATA,42,,,42,
8202 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
8300 DATA,,,,,,,,,,,,,,,,,,,,,,,
8301 DATA,221,128,,221,128
8302 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
8500 DATA 13,10,250,9,196,500
8510 DATA 14,162,100,13,10,100
8520 DATA 12,78,100,13,10,250
8530 DATA 9,196,500
8540 DATA 14,162,100,13,10,100
8550 DATA 12,78,100,13,10,250
8560 DATA 14,162,100,16,109,100
8570 DATA 17,103,100,16,109,250
8580 DATA 14,162,125,19,137,750
8590 DATA 21,237,250,21,237,125
8600 DATA 17,103,250,14,162,500
8610 DATA 19,137,250,19,137,125
8620 DATA 16,109,250,13,10,500
8630 DATA 13,10,125,14,162,125
8640 DATA 16,109,250,14,162,125
8650 DATA 13,10,125,14,162,250
8660 DATA 13,10,125,12,78,125
8670 DATA 13,10,750
8807 DATA 1,255,192
8980 POKES+24,0
9000 DATA,,,,,,,,,,,,,,,,,,,,,,,
9001 DATA 1,213,128,1,157,64,1,213,128
9002 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
10000 DATA,,,,,,,,,,,,,,,,,,,,
10001 DATA 7,162,224,4,50,144,7,42,144,4,38,144,7,162,224
10002 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,
10100 DATA,,,,,,,,,,,,,,,,,
10101 DATA 31,65,120,16,97,68,16,81,68,30,73,68,16,69,68,16,67,68,31,65,120
10102 DATA,,,,,,,,,,,,,,,,,,,,,,,
10200 DATA,,,,,,,,,,,,,,
10201 DATA 126,65,62,64,65,33,64,97,33,64,81,33,124,73,33
10202 DATA 64,69,33,64,67,33,64,65,33,126,65,62
10203 DATA,,,,,,,,,,,,,,,,,,,,